home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_A.d64 / hier ist schluss (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  766b  |  16 lines
  1. 100 poke53281,.:print"[147]worauf wartest du noch? ":fori=1to6step-5
  2. 120 ti$="000003":wait161,1:poke53280,.:print"[158][147]hier kommt nichts mehr !   "
  3. 122 forj=1to3:print
  4. 125 ti$="000003":wait161,1 :goto130
  5. 130 print"[147]     denn hier ist diese seite am [146]    ";:print"[157][157][157][157][157]"
  6. 140 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] ";
  7. 150 ti$="000003":wait161,1:
  8. 210 poke646,int(rnd(8)*15)+9:print"":nextj:poke53280,int(rnd(0)*15)+1:
  9. 211 poke53281,int(rnd(6)*11)+5:poke56325,1:nexti:print"[149]                [145][145][145][145][145]":
  10. 500 print"        [162][162][162][162][162] [162]   [162] [162][162][162][162]  [162][162][162][162][162]         ";
  11. 510 print"        [162]     [162][162]  [162] [162]   [162] [162]             ";
  12. 520 print"        [162][162][162]   [162][160][162] [162] [162]   [162] [162][162][162]           ";
  13. 530 print"        [162]     [162]  [162][162] [162]   [162] [185]             ";
  14. 540 print"        [185][185][185][185][185] [162]   [162] [162][162][162][162]  [162][162][162][162][162][145][145][145][145][145][145][145][145]        ";:poke56325,58:
  15. 550 fora=0to10:print"[151]":next:poke53280,.:poke646,6:ti$="000002":wait161,1:sys58253
  16.